home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 2001 April / PCDAPR2001.ISO / _SETUP.1 / BD.dcr / TIGC_1_Load TIGC.ls < prev    next >
Encoding:
Text File  |  2000-07-05  |  569 b   |  22 lines
  1. on InitTIGC
  2.   oNew = new(script("Song Class"))
  3.   oNew.setName("The Thrill is Gone")
  4.   oNew.SetID("TIGC")
  5.   lCh = []
  6.   lCh[1] = EMPTY
  7.   lCh[2] = "-121-232-343"
  8.   lCh[3] = "o100o200o300-423-522o600"
  9.   lCh[4] = "-134o200o300o400-522-633"
  10.   lCh[5] = "-121-221-332-421-543-621"
  11.   lCh[6] = "-121-221-332-443"
  12.   oNew.setChordMap(lCh)
  13.   lT = []
  14.   addrend1pageTIGC01(lT)
  15.   oNew.addRendition(#audio, "C:\dev\BlueDemo\TIGC\TIGC.wav", lT)
  16.   lT = []
  17.   addrend2pageTIGC01(lT)
  18.   oNew.addRendition(#midi, "C:\dev\BlueDemo\TIGC\TIGCmid.mov", lT)
  19.   addpageTIGC01(oNew)
  20.   return oNew
  21. end
  22.